home *** CD-ROM | disk | FTP | other *** search
/ Bible Heaven / Bible Heaven.iso / online / setcd.bat < prev    next >
DOS Batch File  |  1994-09-15  |  2KB  |  108 lines
  1. echo off
  2. set cd=
  3. if exist z:\online\bible.exe goto z
  4. if exist y:\online\bible.exe goto y
  5. if exist x:\online\bible.exe goto x
  6. if exist w:\online\bible.exe goto w
  7. if exist v:\online\bible.exe goto v
  8. if exist u:\online\bible.exe goto u
  9. if exist t:\online\bible.exe goto t
  10. if exist s:\online\bible.exe goto s
  11. if exist r:\online\bible.exe goto r
  12. if exist q:\online\bible.exe goto q
  13. if exist p:\online\bible.exe goto p
  14. if exist o:\online\bible.exe goto o
  15. if exist n:\online\bible.exe goto n
  16. if exist m:\online\bible.exe goto m
  17. if exist l:\online\bible.exe goto l
  18. if exist k:\online\bible.exe goto k
  19. if exist j:\online\bible.exe goto j
  20. if exist i:\online\bible.exe goto i
  21. if exist h:\online\bible.exe goto h
  22. if exist g:\online\bible.exe goto g
  23. if exist f:\online\bible.exe goto f
  24. if exist e:\online\bible.exe goto e
  25. if exist d:\online\bible.exe goto d
  26. if exist c:\online\bible.exe goto c
  27.    cls
  28.    echo Unable to determine drive letter for CD drive.
  29.    pause
  30.    goto error
  31. :z
  32.    set cd=%cd%
  33.    goto exit
  34. :y
  35.    set cd=y:
  36.    goto exit
  37. :x
  38.    set cd=x:
  39.    goto exit
  40. :w
  41.    set cd=w:
  42.    goto exit
  43. :v
  44.    set cd=v:
  45.    goto exit
  46. :u
  47.    set cd=u:
  48.    goto exit
  49. :t
  50.    set cd=t:
  51.    goto exit
  52. :s
  53.    set cd=s:
  54.    goto exit
  55. :r
  56.    set cd=r:
  57.    goto exit
  58. :q
  59.    set cd=q:
  60.    goto exit
  61. :p
  62.    set cd=p:
  63.    goto exit
  64. :o
  65.    set cd=o:
  66.    goto exit
  67. :n
  68.    set cd=n:
  69.    goto exit
  70. :m
  71.    set cd=m:
  72.    goto exit
  73. :l
  74.    set cd=l:
  75.    goto exit
  76. :k
  77.    set cd=k:
  78.    goto exit
  79. :j
  80.    set cd=j:
  81.    goto exit
  82. :i
  83.    set cd=i:
  84.    goto exit
  85. :h
  86.    set cd=h:
  87.    goto exit
  88. :g
  89.    set cd=g:
  90.    goto exit
  91. :f
  92.    set cd=f:
  93.    goto exit
  94. :e
  95.    set cd=e:
  96.    goto exit
  97. :d
  98.    set cd=d:
  99.    goto exit
  100. :c
  101.    set cd=c:
  102.    goto exit
  103. :exit
  104.    %cd%
  105.    cd %cd%\online
  106.    %cd%\online\%1
  107. :error
  108.